home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er 1986 March
/
64er_Magazin_86-03_1986_Markt__Technik_de.d64
/
view picture
(
.txt
)
< prev
Wrap
Commodore BASIC
|
2022-10-26
|
2KB
|
39 lines
0 rem **************************
1 rem * view picture *
2 rem * ------------ *
3 rem * *
4 rem * written 1985 *
5 rem * by *
6 rem * *
7 rem * r.eichenberger *
8 rem * *
9 rem **************************
10 :
11 poke53280,11:poke53281,12:rem bildschirmfarben aendern
15 fort=0to27:reada:poke828+t,a:next:rem einlesen des masch.prg nach $033c
20 print"[147][144][169] [223][146]";
30 print" view pic (8192) [146]";
40 print"[223] [146][169]";:rem bildschirmmaske
50 print"[151]filename: ";:open1,0:input#1,na$:close1:rem eingabe des namens
60 ifna$=""thengoto120:rem wenn kein name, dann bild zeigen
100 print"[147]l[207]"+chr$(34)+na$+chr$(34)+",8,1":print"g[207]120"
110 poke631,19:poke632,13:poke633,13:poke198,3:end:rem laden des prg's
120 print"[147]":v=53248:rem bildschirm loeschen
130 pokev+17,peek(v+17) or (8+3)*16:rem grafik einschalten
140 pokev+22,peek(v+22)and255-16:rem multicolor ausschalten
150 pokev+24,peek(v+24)or8:rem grafik bei $2000
155 sys828:rem maschinen-prg starten (farben von $4000 nach $0400
160 geta$:ifa$=""then160:rem warte auf taste
161 print"[147]":rem bildschirm loeschen
170 pokev+17,peek(v+17)and255-6*16:rem grafik ausschalten
180 pokev+22,peek(v+22)and255-1*16:rem multicolor ausschalten
190 pokev+24,peek(v+24)and255-8:rem grafik wieder bei $1000
200 input"[147]noch ein bild:[160][j/n]";a$
210 ifa$<>"j"thenend
220 goto20:rem noch ein bild, dann zur zeile 20
225 :
226 rem *** maschinenprg fuer farbe
227 :
230 data162,0,160,64,134,95,132,96,162,232,160,67,134,90,132,91,162,232,160
240 data7,134,88,132,89,32,191,163,96